home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / me_cd25.zip / ME2MUTT.ZIP / SV.MUT < prev    next >
Text File  |  1992-11-09  |  1KB  |  59 lines
  1.   ;; sysvars ala Courtney
  2.   ;; C Durland    Public Domain
  3.  
  4. ;(include popup.mut)
  5.  
  6. (const SYS-VARS 11 VALUE-COLUMN 20)
  7.  
  8. ;HELP
  9. ;beeper
  10. ;case-fold-search
  11. ;horizontal-scroll
  12. ;modeline-color
  13. ;overstrike
  14. ;screen-length
  15. ;screen-width
  16. ;tab-stops
  17. ;text-color
  18. ;word-wrap
  19.  
  20. (defun
  21.   show-sys-vars
  22.   {
  23.     (update)        ; get rid of help window if there is one
  24.     (popup-window 0 0 (+ 5 VALUE-COLUMN) SYS-VARS)
  25.     (show-bool   "HELP")
  26.     (show-bool   "beeper")
  27.     (show-bool   "case-fold-search")
  28.     (show-androd "horizontal-scroll")
  29.     (show-number "modeline-color")
  30.     (show-bool   "overstrike")
  31.     (show-number "screen-length")
  32.     (show-number "screen-width")
  33.     (show-androd "tab-stops")
  34.     (show-number "text-color")
  35.     (show-androd "word-wrap")
  36.   }
  37.   show-bool (string name) HIDDEN
  38.   {
  39.     (pad-and-put name (!= 0 (sysvar name)))
  40.   }
  41.   show-androd (string name) HIDDEN
  42.   {
  43.     (pad-and-put name
  44.       (if (!= 0 (sysvar name)) (sysvar name) "OFF") )
  45.   }
  46.   show-number (string name) HIDDEN
  47.   {
  48.     (pad-and-put name (sysvar name))
  49.   }
  50.   pad-and-put (string name) (value) HIDDEN
  51.   {
  52.     (wputs (concat name
  53.       (extract-elements "......................."
  54.     0 (- VALUE-COLUMN (length-of name)))
  55.       value))
  56.   }
  57. )
  58.  
  59.